;; Fill a block with a byte

size equ 20
base equ $0010

	org $0000

	ldx #base   ; start of fill block
	lda #$41    ; load an ascii A
	ldy #size   ; load size of the block

loopfill
	staa 0,x
	inx
	dey
	bne loopfill

	org $0010
	db $de
	db $ad
	db $be
	db $ef
	
